LessThanOrEqual Function

private function LessThanOrEqual(time1, time2) result(lessequal)

return true if time1 is less than time2 or time1 is equal to time2

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(in) :: time1
type(DateTime), intent(in) :: time2

Return Value logical


Variables

Type Visibility Attributes Name Initial
type(DateTime), public :: tempTime1
type(DateTime), public :: tempTime2

Source Code

FUNCTION LessThanOrEqual &
!
(time1, time2) &
!
RESULT (lessequal)

IMPLICIT NONE

! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time1, time2

! Local declarations:
LOGICAL :: lessequal
TYPE (DateTime) :: tempTime1, tempTime2

!------------end of declaration------------------------------------------------

!converto to utc
tempTime1 = ToUtc (time1)
tempTime2 = ToUtc (time2)

IF ( tempTime1 < tempTime2 .OR. tempTime1 == tempTime2 ) THEN
  lessequal = .TRUE.
ELSE
  lessequal = .FALSE.
END IF

END FUNCTION LessThanOrEqual